home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / vol11n08.zip / LENGT1.BAT < prev    next >
DOS Batch File  |  1991-10-14  |  323b  |  19 lines
  1. @ECHO OFF
  2. REM LENGTH1.BAT
  3. IF '%1'=='' GOTO help
  4. IF NOT '%2'=='' GOTO setn
  5. ECHO %1■> LENGTH1.TXT
  6. EDLIN LENGTH1.TXT < LENGTH.SCR > NUL
  7. COPY LENGTH1.TXT+,, /B > NUL
  8. DIR LENGTH1.TXT | FIND /V "e" > L.BAT
  9. CALL L
  10. DEL LENGTH1.TXT
  11. DEL L.BAT
  12. GOTO end
  13. :setn
  14. SET N=%2
  15. GOTO end
  16. :help
  17. ECHO Usage: length1 string
  18. :end
  19.